perm filename ALMAIN.SEX[AL,HE]3 blob sn#360983 filedate 1978-06-14 generic text, type T, neo UTF8
($PR
  ($BL
    ( $ARAY $SVAR I ( 2.000000      3.000000     ))
    ( $ARAY $SVAR J ( 1.000000      6.000000     )K ( 2.000000      3.000000    
 ))
    ( $SVAR JJ )
    ($FO JJ
       1.000000    
       1.000000    
       6.000000    
      ( $AS ($AREF J JJ)
        ( $SMUL JJ JJ)
      )
    )
    ($FO JJ
       1.000000    
       1.000000    
       6.000000    
      ( $PRINT 
        JJ
      )
    )
  )
)